inherited fmJL: TfmJL
  Left = 507
  Top = 225
  Width = 1203
  Height = 566
  Caption = #1054#1082#1072#1079#1072#1090#1077#1083#1080' '#1091#1089#1083#1091#1075'('#1102#1088#1083#1080#1094#1072'/'#1048#1055' '#1080' '#1092#1080#1079#1083#1080#1094#1072')'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 505
    Width = 1195
  end
  inherited Panel1: TPanel
    Width = 1195
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 1025
    end
    inherited BitBtn2: TBitBtn
      Left = 1113
    end
  end
  object ToolBar1: TToolBar [2]
    Left = 0
    Top = 45
    Width = 1195
    Height = 29
    Caption = 'ToolBar1'
    Images = DMInv.ilActive
    TabOrder = 2
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = 'ToolButton1'
      ImageIndex = 28
      OnClick = ToolButton1Click
    end
    object tbEdit: TToolButton
      Left = 23
      Top = 2
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100
      Caption = 'tbEdit'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = tbEditClick
    end
    object ToolButton2: TToolButton
      Left = 46
      Top = 2
      Caption = 'ToolButton2'
      ImageIndex = 29
      OnClick = ToolButton2Click
    end
  end
  object cxGrid1: TcxGrid [3]
    Left = 0
    Top = 74
    Width = 1195
    Height = 431
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    LookAndFeel.Kind = lfStandard
    object tvJL: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.Insert.Visible = True
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = True
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      OnCellDblClick = tvJLCellDblClick
      OnEditValueChanged = tvJLEditValueChanged
      DataController.DataSource = DataSource1
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'CSAMOUNT'
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.Appending = True
      OptionsData.CancelOnExit = False
      OptionsData.Editing = False
      OptionsView.CellEndEllipsis = True
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Header = DMInv.cxSiniyText
      object tvJLJLID: TcxGridDBColumn
        Caption = 'ID'
        DataBinding.FieldName = 'JLID'
        Width = 40
      end
      object tvJLJLOPF: TcxGridDBColumn
        Caption = #1054#1055#1060
        DataBinding.FieldName = 'OPF_'
        Width = 96
      end
      object tvJLJLEGALNAME: TcxGridDBColumn
        Caption = #1070#1088'. '#1080#1084#1103
        DataBinding.FieldName = 'JLEGALNAME'
        Width = 158
      end
      object tvJLJLINN: TcxGridDBColumn
        Caption = #1048#1053#1053
        DataBinding.FieldName = 'JLINN'
        Width = 87
      end
      object tvJLJLOGRN: TcxGridDBColumn
        Caption = #1054#1043#1056#1053
        DataBinding.FieldName = 'JLOGRN'
        Width = 112
      end
      object tvJLJLLEGALADRESS: TcxGridDBColumn
        Caption = #1070#1088'. '#1072#1076#1088#1077#1089
        DataBinding.FieldName = 'JLLEGALADRESS'
        Width = 198
      end
      object tvJLJLCEONAME: TcxGridDBColumn
        Caption = #1056#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1100
        DataBinding.FieldName = 'JLCEONAME'
        Width = 164
      end
      object tvJLJLNOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
        DataBinding.FieldName = 'JLNOTE'
        Width = 160
      end
      object tvJLLINK_SPISOK: TcxGridDBColumn
        Caption = #1055#1088#1080#1074#1103#1079#1082#1072' '#1082' '#1086#1082#1072#1079#1072#1090#1077#1083#1103#1084' '#1091#1089#1083#1091#1075
        DataBinding.FieldName = 'LINK_SPISOK'
        Width = 164
      end
    end
    object cxGridLevel5: TcxGridLevel
      GridView = tvJL
    end
  end
  object DataSource1: TDataSource
    DataSet = qJL
    Left = 264
    Top = 192
  end
  object qJL: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterPost = qJLAfterPost
    CachedUpdates = True
    SQL.Strings = (
      
        'SELECT J.*, SD1.SDNAME AS opf_, LIST(SD.SDNAME, '#39', '#39') AS link_sp' +
        'isok'
      'FROM JURLITSA J'
      'LEFT OUTER JOIN JLSDLINK l ON l.JLID = J.JLID'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = l.SDID'
      'LEFT OUTER JOIN SYS_DIC SD1 ON SD1.SDID = j.JLOPFSDID'
      'where J.JLISDELETE is null and coalesce(j.JLTYPE,0) = 0'
      'GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13, 14, 15,16, 17')
    UpdateObject = quJL
    GeneratorField.Field = 'JLID'
    Left = 296
    Top = 192
    object qJLJLID: TIntegerField
      FieldName = 'JLID'
      Origin = '"JURLITSA"."JLID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qJLJLEGALNAME: TIBStringField
      FieldName = 'JLEGALNAME'
      Origin = '"JURLITSA"."JLEGALNAME"'
      Size = 255
    end
    object qJLJLNOTE: TIBStringField
      FieldName = 'JLNOTE'
      Origin = '"JURLITSA"."JLNOTE"'
      Size = 255
    end
    object qJLJLUSERENTER: TIBStringField
      FieldName = 'JLUSERENTER'
      Origin = '"JURLITSA"."JLUSERENTER"'
      Size = 40
    end
    object qJLJLTIMEENTER: TDateTimeField
      FieldName = 'JLTIMEENTER'
      Origin = '"JURLITSA"."JLTIMEENTER"'
    end
    object qJLJLUSEREDIT: TIBStringField
      FieldName = 'JLUSEREDIT'
      Origin = '"JURLITSA"."JLUSEREDIT"'
      Size = 40
    end
    object qJLJLTIMEEDIT: TDateTimeField
      FieldName = 'JLTIMEEDIT'
      Origin = '"JURLITSA"."JLTIMEEDIT"'
    end
    object qJLJLINN: TIBStringField
      FieldName = 'JLINN'
      Origin = '"JURLITSA"."JLINN"'
      Size = 12
    end
    object qJLJLOGRN: TIBStringField
      FieldName = 'JLOGRN'
      Origin = '"JURLITSA"."JLOGRN"'
      Size = 255
    end
    object qJLJLOPF: TIBStringField
      FieldName = 'JLOPF'
      Origin = '"JURLITSA"."JLOPF"'
      Size = 10
    end
    object qJLJLLEGALADRESS: TIBStringField
      FieldName = 'JLLEGALADRESS'
      Origin = '"JURLITSA"."JLLEGALADRESS"'
      Size = 255
    end
    object qJLJLCEONAME: TIBStringField
      FieldName = 'JLCEONAME'
      Origin = '"JURLITSA"."JLCEONAME"'
      Size = 255
    end
    object qJLJLISDELETE: TIntegerField
      FieldName = 'JLISDELETE'
      Origin = '"JURLITSA"."JLISDELETE"'
    end
    object qJLLINK_SPISOK: TMemoField
      FieldName = 'LINK_SPISOK'
      ProviderFlags = []
      BlobType = ftMemo
      Size = 8
    end
    object qJLOPF_: TIBStringField
      FieldName = 'OPF_'
      ProviderFlags = []
      Size = 255
    end
  end
  object quJL: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  JLID,'
      '  JLNOTE,'
      '  JLUSERENTER,'
      '  JLTIMEENTER,'
      '  JLUSEREDIT,'
      '  JLTIMEEDIT,'
      '  JLEGALNAME,'
      '  JLINN,'
      '  JLOGRN,'
      '  JLOPF,'
      '  JLLEGALADRESS,'
      '  JLCEONAME,'
      '  JLISDELETE'
      'from JURLITSA '
      'where'
      '  JLID = :JLID')
    ModifySQL.Strings = (
      'update JURLITSA'
      'set'
      '  JLCEONAME = :JLCEONAME,'
      '  JLEGALNAME = :JLEGALNAME,'
      '  JLID = :JLID,'
      '  JLINN = :JLINN,'
      '  JLISDELETE = :JLISDELETE,'
      '  JLLEGALADRESS = :JLLEGALADRESS,'
      '  JLNOTE = :JLNOTE,'
      '  JLOGRN = :JLOGRN,'
      '  JLOPF = :JLOPF'
      'where'
      '  JLID = :OLD_JLID')
    InsertSQL.Strings = (
      'insert into JURLITSA'
      
        '  (JLCEONAME, JLEGALNAME, JLID, JLINN, JLISDELETE, JLLEGALADRESS' +
        ', JLNOTE, '
      '   JLOGRN, JLOPF)'
      'values'
      
        '  (:JLCEONAME, :JLEGALNAME, :JLID, :JLINN, :JLISDELETE, :JLLEGAL' +
        'ADRESS, '
      '   :JLNOTE, :JLOGRN, :JLOPF)')
    DeleteSQL.Strings = (
      'update JURLITSA'
      'set'
      '  JLISDELETE = 1'
      'where'
      '  JLID = :OLD_JLID')
    Left = 328
    Top = 192
  end
  object qCheckJL: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = DataSource1
    SQL.Strings = (
      'SELECT CS.JLID'
      'FROM COMMON_SERV CS'
      'WHERE CS.JLID = :JLID'
      'UNION'
      'SELECT PP.PP_ID'
      'FROM PERSON_PODOTCH PP'
      'where PP.PP_ID = :JLID AND PP.PPTYPE = 5')
    Left = 96
    Top = 104
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'JLID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'JLID'
        ParamType = ptUnknown
      end>
  end
end
